Collection of Tools & Utilities/Collection of Tools and Utilities.iso/clipper/52dix.zip/INSTALL.DAT

Text File | 1994-04-21 | 20KB | 688 lines

/****************************************************************/
/*  INSTALL.DAT                                                 */
/*                                                              */
/*  Copyright (c) 1993 Computer Associates International        */
/*  All Rights Reserved                                         */
/*                                                              */
/*  Last revision:   04/21/94                                   */
/****************************************************************/

@DefineProject
   @Group     = "A"
   @Requires  @HardDisk
   @Name      = "CA-Clipper 5.2d (Int'l) / ExoSpace 1.0f"
   @Version   = "5.2d"
   @OutDrive  = C
   @Subdir    = "\\CLIPPER5"
@EndProject

@DefineVars
   @Integer @InDisk  = 0      /* change for proper input disk type */
   @Integer @IsExo   = 1      /* is ExoSpace installed */
   @Dir @Bin           = "@SubDir\\BIN"
   @Dir @Include       = "@SubDir\\INCLUDE"
   @Dir @Lib           = "@SubDir\\LIB"
   @Dir @Obj           = "@SubDir\\OBJ"
   @Dir @Dbu           = "@SubDir\\SOURCE\\DBU"
   @Dir @Rl            = "@SubDir\\SOURCE\\RL"
   @Dir @Sys           = "@SubDir\\SOURCE\\SYS"
   @Dir @Sample        = "@SubDir\\SOURCE\\SAMPLE"
   @Dir @Ng            = "\\NG"
   @Dir @ExoBin        = "@SubDir\\BIN"
   @Dir @Error         = "@SubDir\\SOURCE\\ERROR"
   @Dir @Filesys       = "@SubDir\\SOURCE\\FILESYS"
   @Dir @Item          = "@SubDir\\SOURCE\\ITEM"
   @Dir @Sdx           = "@SubDir\\SOURCE\\SDX"
   @Dir @Vm            = "@SubDir\\SOURCE\\VM"
   @Qstring @NewLine   = "\n"
   @Qstring @Pkbkp     = "/O"
   @Qstring @InstName  = @Name

@EndVars

@Display
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█     @InstName Patch
  █ Computer        █
  █  Associates     █     This program will upgrade the CA-Clipper
  █   International █     version 5.20, 5.2a, 5.2b or 5.2c files on
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█     your computer system to 5.2d. It will also
       ▄▄▄▄▄▄▄▄▄          upgrade CA-Clipper/Exospace to version 1.0f
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄       if ExoSpace is already installed on your
                          computer.  The basic steps in the procedure
                          are as follows:

                          ■ Specify target directories
                          ■ Install patch files to hard disk
                          ■ Execute patch files

                  Press Esc at any time to stop the installation.

                                       @Pause

@EndDisplay
@GetOption
@LocalWindow(9,38)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█   @InstName Installation
  █ Computer        █
  █  Associates     █
  █   International █     Exit Patch and Perform a backup?
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄

                            @Option 10 = "Exit"
                            @Option 11 = "Continue"

@Newline

         You should backup your current versions of CA-Clipper 5.2 and
         ExoSpace (if it's installed) and remove any prior versions of
         CA-Clipper 5.2 from your CA-Clipper 5.2 directory structure
         before applying the CA-Clipper 5.2d upgrade patch.  If you
         have not backed up and removed any prior versions (as per the
         instructions contained in the 52DI.TXT file) yet, you should
         exit this installation, perform a backup and restart the patch
         process.

@EndOption

@If ( 10 [= @Option )
   @Exit ()
@Endif


DrivePick:
@GetOutDrive
@Suppress A
@Suppress B
@LocalWindow(11,36)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█   @InstName Installation
  █ Computer        █
  █  Associates     █     Select Target Drive:
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄









     Use  and  to highlight the drive where CLIPPER 5.2 is installed,
     then press ─┘ to continue. Press Esc to exit.

@EndOutDrive

@GetSubdir
@LocalWindow(7,56)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█   @InstName Installation
  █ Computer        █
  █  Associates     █     Select Clipper 5.2 Directory:
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄






     Type the directory name where CLIPPER 5.2 is installed, then
     press ─┘ to continue. Press Esc to exit.

@EndSubdir

@GetOption
@LocalWindow(8,40)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█   @InstName Installation
  █ Computer        █
  █  Associates     █
  █   International █     Do you have ExoSpace installed?
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄

                            @Option 50 = "  Yes  "
                            @Option 51 = "  No   "



@Newline

    Select 'Yes' if you have CA-Clipper/ExoSpace installed.  You will be
    prompted for the directory name where EXOSPACE.EXE is installed.
    You should NOT press 'Yes' if you do not have ExoSpace installed on
    your computer.

@EndOption

@If ( 51 [= @Option )
   @IsExo = 0
   @InstName = "CA-Clipper 5.2d (International)"
@Endif

@If ( @IsExo != 0 )
@GetSubdir @ExoBin
@LocalWindow(7,56)
@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█   @InstName Installation
  █ Computer        █
  █  Associates     █     Select ExoSpace.EXE Directory
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄






     Type a directory name, and press ─┘ to continue. Press Esc to exit.

@EndSubdir
@Endif

@GetOption
@LocalWindow(7,40)
@Cls

@Cls
  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█   @InstName Installation
  █ Computer        █
  █  Associates     █     Patch files in the following directories?
  █   International █
  █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
       ▄▄▄▄▄▄▄▄▄
    ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
                            @Option 101 = "  Yes  "
                            @Option 102 = "  No   "
@Move(9,1)
                         Executables  =>  @Subdir\BIN
                         Libraries    =>  @Subdir\LIB
                         Header files =>  @SubDir\INCLUDE
                         Obj files    =>  @SubDir\OBJ
                         Norton guide =>  \NG
@If ( @IsExo != 0 )
   @Move(14,1)
                         ExoSpace.EXE =>  @ExoBin
@Endif


      Select 'Yes' to proceed with patch installation using directories
      shown above.  If you select 'No', you will be prompted for each
      of the above directories.
@EndOption

@Bin = "@Subdir\\Bin"
@Lib = "@Subdir\\Lib"
@Include = "@Subdir\\Include"
@Obj = "@Subdir\\Obj"
@Ng = "\\NG"

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Bin" ) ) )
GetBinPath:
  @GetSubdir @Bin
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the BIN directory, then
                press ─┘ to continue.  Press Esc to exit.

  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Bin" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Bin" ) ) / 2, "@OutDrive:@Bin DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetBinPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Lib" ) ) )
GetLibPath:
  @GetSubdir @Lib
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the LIB directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Lib" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Lib" ) ) / 2, "@OutDrive:@Lib DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Pause
    @EndDisplay
    @Goto GetLibPath
  @Endif
@Endif

@If ( ( 102 [= @Option ) || ( ! @DirExists( "@OutDrive:@Include" ) ) )
GetIncludePath:
  @GetSubdir @Include
  @LocalWindow(9,48)
  @Move(12,1)
                Enter the path to the INCLUDE directory, then
                press ─┘ to continue.  Press Esc to exit.
  @EndSubdir

  @If ( ! @DirExists( "@OutDrive:@Include" ) )
    @Display
    @Move( 12, ( 58 - @StrLen( "@Include" ) ) / 2, "@OutDrive:@Include DIRECTORY NOT FOUND" )
    @Move( 16, 1 )
                                       @Paus